COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "WHOVID"
C00003 ENDMK
C⊗;
BEGIN "WHOVID"
INTEGER L,A,V;
FOR L←'20 STEP 1 UNTIL '117 DO
    BEGIN
    V←CALL((IF L≤'25 THEN ('400400 LOR (L-'20)) ELSE '600000 LOR L) LSH 18,
            "VDSMAP") LAND '17;
    A←(CALL(CALL('303,"PEEK")+L-'20,"PEEK") LSH -18) LAND '17;
    IF V≠0∨A≠0 THEN
        BEGIN
        OUTSTR("LINE "&CVOS(L)&" - ");
        IF V≠0 THEN OUTSTR("VIDEO "&CVOS('40+V)&"  ");
        IF A≠0 THEN OUTSTR("AUDIO "&CVOS(A));
        OUTSTR('15&'12);
        END;
    END;
CALL(0,"EXIT");
END;